home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / tp5demo / steuerung < prev    next >
Encoding:
AmigaDOS Script File  |  1978-01-11  |  3.0 KB  |  135 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "copy"
  8.     set vcopy 1
  9. endif
  10. if "[param]" EQ "assign"
  11.     set vassign 1
  12. endif
  13. if "[param]" EQ "unassign"
  14.     set vunassign 1
  15. endif
  16. if "[param]" EQ "start"
  17.     set vassign 1
  18.     set vstart 1
  19.     set vunassign 1
  20. endif
  21. if "[param]" EQ "install"
  22.     set vinstall 1
  23. endif
  24. set bcopy        1
  25. set bassign      1
  26. set bunassign    1
  27. set bstart       1
  28. set binstall     1
  29.  
  30.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  31.     set nummer 0
  32.     if $bcopy EQ 1
  33.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ncopy $nummer
  36.     endif
  37.     if $bassign EQ 1
  38.          echo >>t:tmpsteuerung " Assign" NOLINE
  39.          set nummer `eval $nummer + 1`
  40.          set nassign $nummer
  41.     endif
  42.     if $bunassign EQ 1
  43.          echo >>t:tmpsteuerung " Unassign" NOLINE
  44.          set nummer `eval $nummer + 1`
  45.          set nunassign $nummer
  46.     endif
  47.     if $bstart EQ 1
  48.          echo >>t:tmpsteuerung " Start" NOLINE
  49.          set nummer `eval $nummer + 1`
  50.          set nstart $nummer
  51.     endif
  52.     if $binstall EQ 1
  53.          echo >>t:tmpsteuerung " Installieren" NOLINE
  54.          set nummer `eval $nummer + 1`
  55.          set ninstall $nummer
  56.     endif
  57.     if "[param]" EQ ""
  58.         echo >>t:tmpsteuerung " Ende" NOLINE
  59.         execute >nil: t:tmpsteuerung
  60.         delete >nil: t:tmpsteuerung
  61.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  62.         if $reqerg[$$] EQ 0
  63.             skip Ende
  64.         endif
  65.     endif
  66.     if $reqerg[$$] EQ $ncopy
  67.         set vcopy 1
  68.     endif
  69.     if $reqerg[$$] EQ $nassign
  70.         set vassign 1
  71.     endif
  72.     if $reqerg[$$] EQ $nunassign
  73.         set vunassign 1
  74.     endif
  75.     if $reqerg[$$] EQ $nstart
  76.         set vassign 1
  77.         set vstart 1
  78.         set vunassign 1
  79.     endif
  80.     if $reqerg[$$] EQ $ninstall
  81.         set vinstall 1
  82.     endif
  83. endif
  84.  
  85. if $vassign EQ 1
  86. ;>>>>>>>> Hier steht das Assign
  87.     Assign >nil: Turboprint: :Software/tp5demo/
  88.     if $vstart NOT EQ 1
  89.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  90.     endif
  91. endif
  92. if $vstart EQ 1
  93. ;>>>>>>>> Hier steht das Startprogramm
  94.     :Software/tp5demo/Turboprefs
  95. endif
  96. if $vunassign EQ 1
  97. ;>>>>>>>> Hier steht das Unassign
  98.     Assign >nil: Turboprint: remove
  99.     if $vstart NOT EQ 1
  100.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  101.     endif
  102. endif
  103. if $vcopy EQ 1
  104.     execute :c/Verzeichniskopieren ":Software/tp5demo/" "tp5demo" 744448
  105. endif
  106. if $vinstall EQ 1
  107. ;>>>>>>>> Hier Install-Skript eintragen
  108.     assign l: :l add
  109.     cd >nil: :Software/tp5demo/
  110.     :c/WBstarter >nil: :Software/tp5demo/Install
  111.     assign l: :l remove
  112.     skip Ende
  113. endif
  114.  
  115. unset bassign
  116. unset bunassign
  117. unset vassign
  118. unset vunassign
  119. unset nassign
  120. unset nunassign
  121. unset bstart
  122. unset vstart
  123. unset nstart
  124. unset binstall
  125. unset vinstall
  126. unset ninstall
  127. unset bcopy
  128. unset vcopy
  129. unset ncopy
  130. if "[param]" EQ ""
  131.     execute Steuerung
  132. endif
  133. LAB Ende
  134. unsetenv reqerg[$$]
  135.